﻿Imports AugmentLib.Database
Imports System.Configuration.ConfigurationManager
Imports AugmentLib.InputOutput.Encryption
Imports AugmentLib.WebComponent
Partial Class propertycompare
    Inherits System.Web.UI.Page

    Private Sub GetAllPropertyDate(ByVal PropertyUID As Guid)

        Dim objDB As New Database(AppSettings("datasource"), AppSettings("database"), AppSettings("username"), AppSettings("password"), AppSettings("timeout"), AppSettings("pooling"))
        Dim TempDT As New Data.DataTable

        objDB.OpenConnection()
        objDB.dbVariable.SQLString = "SELECT  CONVERT(VARCHAR(20), CreateDate, 100) as CreateDate,OId FROM " + AppSettings("logdatasource").ToString() + ".dbo.AW_Property WHERE PropertyId=@PropertyId"
        objDB.AddParameter("PropertyId", Data.SqlDbType.UniqueIdentifier, PropertyUID)
        objDB.FillData(TempDT, "Property", Database.SQLCommandType.NormalString)
        objDB.CloseConnection()

        Dim NewRow As Data.DataRow
        NewRow = TempDT.NewRow
        NewRow.Item("CreateDate") = "--Select One--"
        NewRow.Item("OId") = Guid.Empty
        TempDT.Rows.InsertAt(NewRow, 0)

        ddlProperty1.DataSource = TempDT
        ddlProperty1.DataTextField = "CreateDate"
        ddlProperty1.DataValueField = "OId"
        ddlProperty1.DataBind()

        ddlProperty2.DataSource = TempDT
        ddlProperty2.DataTextField = "CreateDate"
        ddlProperty2.DataValueField = "OId"
        ddlProperty2.DataBind()

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Session("StaffId") Is Nothing Then
            Response.Redirect("Default.aspx")
        Else
            lblStaffUID.Text = Session("StaffId").ToString
            lblhidStaffType.Text = Session("StaffType").ToString
        End If

        If Not Page.IsPostBack Then
            If Not Request.QueryString("id") Is Nothing Then
                Dim Propertyid As String
                Propertyid = SymmetricDecryptFromHex(Request.QueryString("id"), "augment")
                GetAllPropertyDate(New Guid(Propertyid))
                If lblhidStaffType.Text = "3" Then
                    pnlOwnerInfo.Visible = False
                End If
            End If
        End If

    End Sub

    Protected Sub ddlProperty1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlProperty1.SelectedIndexChanged
        If ddlProperty1.SelectedValue <> Guid.Empty.ToString Then
            Dim objDB As New Database(AppSettings("datasource"), AppSettings("database"), AppSettings("username"), AppSettings("password"), AppSettings("timeout"), AppSettings("pooling"))
            Dim TempDT As New Data.DataTable

            objDB.OpenConnection()
            objDB.dbVariable.SQLString = "SELECT a.PropertyId, r.Road, p.Project, t.[Type] as PropertyType, a.UnitNumber, " & _
                                   "isnull(a.UnitNumber,'') + ', ' + isnull(r.Road,'') + ', ' + isnull(l.Location,'') + ', ' + isnull(s.State,'') + ', ' + isnull(c.Country,'') as 'Address', " & _
                                   "a.ListType, a.SRAmt, a.SRPSF, a.SRAskAmt, a.SRAskPSF, a.SRCreateDate, a.SRYes, " & _
                                   "a.SCAmt, a.SCPSF, a.SCAskAmt, a.SCAskPSF, a.SCCreateDate, a.SCYes, a.SLAmt, a.SLPSF, " & _
                                   "a.SLAskAmt, a.SLAskPSF, a.SLCreateDate, a.SLYes, a.SIAmt, a.SIPSF, a.SIAskAmt, a.SIAskPSF, a.SICreateDate, " & _
                                   "a.SIYes, a.RRAmt, a.RRPSF, a.RRAskAmt, a.RRAskPSF, a.RRCreateDate, " & _
                                   "a.RRYes, a.RCAmt, a.RCPSF, a.RCAskAmt, a.RCAskPSF, a.RCCreateDate, a.RCYes, " & _
                                   "a.RLAmt, a.RLPSF, a.RLAskAmt, a.RLAskPSF, a.RLCreateDate, a.RLYes, a.RIAmt, a.RIPSF, " & _
                                   "a.RIAskAmt, a.RIAskPSF, a.RICreateDate, a.RIYes, rs.Initial as SLister, a.SListerId, a.RListerId, " & _
                                   "rr.Initial as RLister, a.KeyInOffice, a.ProjectRemark, a.PropertyDesc, " & _
                                   "a.SignboardStatus, a.SignboardWhere, a.SignboardWhen, a.SurveySheet, " & _
                                   "a.QuitRent, a.AssessmentBill, a.PendingStatus, a.PendingWho, " & _
                                   "a.PendingWhen, a.PendingWhy, a.Tenure, a.ListHoldExpired, " & _
                                   "a.Access, a.Condition, a.Facing, a.Zoning, a.Room, a.Bathroom, a.BestBuy, a.ExclusiveStatus, " & _
                                   "a.ExclusiveWho, a.ExclusiveWhen, a.ExclusiveEndDate, a.AuthorizeSaleRent, a.Remark, " & _
                                   "CONVERT(nvarchar(21), ISNULL(a.Production1, 0)) + ' X ' + CONVERT(nvarchar(21), a.Production2) + ' = ' + CONVERT(nvarchar(21), a.Production3) AS 'Production', " & _
                                   "CONVERT(nvarchar(21), a.Admin1) + ' X ' + CONVERT(nvarchar(21), a.Admin2) + ' = ' + CONVERT(nvarchar(21), a.Admin3) AS 'Admin', " & _
                                   "CONVERT(nvarchar(21), LAWidth) + ' X ' + CONVERT(nvarchar(21), LALength) + ' = ' + CONVERT(nvarchar(21), LASF) AS 'LASQ', " & _
                                   "CONVERT(nvarchar(21), BUWidth) + ' X ' + CONVERT(nvarchar(21), BULength) + ' = ' + CONVERT(nvarchar(21), BUSF) AS 'BUSQ', " & _
                                   "a.[Ceiling], a.Terrain, a.District, a.FloorLoad, a.SECMK, a.Lot, a.Phase, " & _
                                   "a.Furnished, a.FurnishedRemark, a.Renovated, a.RenovatedRemark, a.Developer, a.OwnerName, " & _
                                   "a.OwnerMobile, a.OwnerPhone, a.OwnerFax, a.OwnerEmail, a.OwnerAddress, a.ReferLister, " & _
                                   "a.LandlordName, a.LandlordMobile, a.LandlordPhone, a.LandlordFax, a.LandlordEmail, a.LandlordAddress, " & _
                                   "a.ReferLandlordLister, a.RListStatus, a.SListStatus, a.RRelistStatus, a.SRelistStatus,a.CPPlanNo,a.Floor,a.CompanyName,a.ViewContact,a.OtherContact, " & _
                                    "a.AgentFeedback,a.AgentFeedbackRent,a.CommissionRemark, " & _
                                    "a.SaleView, a.RentView, a.SaleRemark, a.RentRemark, a.Latitude, a.Longitude, a.SaleGST, a.RentGST, ru.Initial as UpdateWho " & _
                                   "FROM " + AppSettings("logdatasource").ToString() + ".dbo.AW_Property a LEFT OUTER JOIN " & _
                                   "AW_Road r ON a.RoadId = r.RoadId LEFT OUTER JOIN AW_Project p ON a.ProjectId = p.ProjectId " & _
                                   "LEFT OUTER JOIN AW_PropertyType t ON a.PropertyTypeId = t.TypeId LEFT OUTER JOIN AW_Staff rs " & _
                                   "ON a.SListerId = rs.StaffId LEFT OUTER JOIN AW_Staff rr ON a.RListerId = rr.StaffId " & _
                                   "LEFT OUTER JOIN AW_Staff ru ON a.UpdateWho = ru.StaffId " & _
                                   "LEFT OUTER JOIN AW_Location l ON r.LocationId = l.LocationId LEFT OUTER JOIN AW_State s ON l.StateId = s.StateId " & _
                                   "LEFT OUTER JOIN AW_Country c on s.CountryId = c.CountryId WHERE a.OId =@OId"
            objDB.AddParameter("OID", Data.SqlDbType.UniqueIdentifier, New Guid(ddlProperty1.SelectedValue))
            objDB.FillData(TempDT, "Property", Database.SQLCommandType.NormalString)
            objDB.CloseConnection()

            For Each ReadRow As Data.DataRow In TempDT.Rows

                lblAddress1.Text = ReadRow.Item("Address").ToString
                lblProject1.Text = ReadRow.Item("Project").ToString
                lblPropertyType1.Text = ReadRow.Item("PropertyType").ToString
                If ReadRow.Item("KeyInOffice").ToString = "1" Then
                    lblKeyInOffice1.Text = "☑"
                Else
                    lblKeyInOffice1.Text = ""
                End If
                lblProjectRemark1.Text = ReadRow.Item("ProjectRemark").ToString
                lblLASQFT1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("LASQ"))
                lblBUSQFT1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("BUSQ"))
                If ReadRow.Item("SignboardStatus").ToString = "1" Then
                    lblSignboard1.Text = "☑"
                Else
                    lblSignboard1.Text = ""
                End If
                If Not ReadRow.Item("SignboardWhen") Is DBNull.Value Then
                    lblSignboardWhen1.Text = Format(ReadRow.Item("SignboardWhen"), "dd-MMM-yyyy")
                Else
                    lblSignboardWhen1.Text = ""
                End If
                lblSignboardWhere1.Text = ReadRow.Item("SignboardWhere").ToString
                lblSurveySheet1.Text = ReadRow.Item("SurveySheet").ToString
                lblQuitRent1.Text = ReadRow.Item("QuitRent").ToString
                lblAssessmentBill1.Text = ReadRow.Item("AssessmentBill").ToString

                If ReadRow.Item("PendingStatus") = "1" Then
                    lblPending1.Text = "☑"
                Else
                    lblPending1.Text = ""
                End If
                lblPendingWho1.Text = ReadRow.Item("PendingWho").ToString
                If Not ReadRow.Item("PendingWhen") Is DBNull.Value Then
                    lblPendingWhen1.Text = Format(ReadRow.Item("PendingWhen"), "dd-MMM-yyyy")
                Else
                    lblPendingWhen1.Text = ""
                End If

                lblPendingWhy1.Text = ReadRow.Item("PendingWhy").ToString

                If ReadRow.Item("Tenure").ToString = "1" Then
                    lblTenure1.Text = "Freehold"
                ElseIf ReadRow.Item("Tenure").ToString = "2" Then
                    lblTenure1.Text = "Leasehold"
                Else
                    lblTenure1.Text = String.Empty
                End If
                If ReadRow.Item("Tenure").ToString = "2" Then '--Listhold
                    lblTenure1.Text = lblTenure1.Text & "(" & ReadRow.Item("ListHoldExpired").ToString & ")"
                End If

                If ReadRow.Item("Access").ToString = "1" Then
                    lblAccess1.Text = "Direct"
                ElseIf ReadRow.Item("Access").ToString = "2" Then
                    lblAccess1.Text = "Friend"
                ElseIf ReadRow.Item("Access").ToString = "3" Then
                    lblAccess1.Text = "Key in office"
                ElseIf ReadRow.Item("Access").ToString = "4" Then
                    lblAccess1.Text = "Tenant"
                ElseIf ReadRow.Item("Access").ToString = "5" Then
                    lblAccess1.Text = "Owner"
                ElseIf ReadRow.Item("Access").ToString = "6" Then
                    lblAccess1.Text = "Representative"
                ElseIf ReadRow.Item("Access").ToString = "7" Then
                    lblAccess1.Text = "Relative"
                ElseIf ReadRow.Item("Access").ToString = "8" Then
                    lblAccess1.Text = "Others"
                Else
                    lblAccess1.Text = String.Empty
                End If

                If ReadRow.Item("Condition").ToString = "1" Then
                    lblCondition1.Text = "Vacant"
                ElseIf ReadRow.Item("Condition").ToString = "2" Then
                    lblCondition1.Text = "Tenanted"
                ElseIf ReadRow.Item("Condition").ToString = "3" Then
                    lblCondition1.Text = "Owner Occupied"
                ElseIf ReadRow.Item("Condition").ToString = "4" Then
                    lblCondition1.Text = "Care Taker"
                ElseIf ReadRow.Item("Condition").ToString = "5" Then
                    lblCondition1.Text = "Under Construction"
                Else
                    lblCondition1.Text = String.Empty
                End If

                If ReadRow.Item("Facing").ToString = "1" Then
                    lblFacing1.Text = "North"
                ElseIf ReadRow.Item("Facing").ToString = "2" Then
                    lblFacing1.Text = "North East"
                ElseIf ReadRow.Item("Facing").ToString = "3" Then
                    lblFacing1.Text = "East"
                ElseIf ReadRow.Item("Facing").ToString = "4" Then
                    lblFacing1.Text = "South East"
                ElseIf ReadRow.Item("Facing").ToString = "5" Then
                    lblFacing1.Text = "South"
                ElseIf ReadRow.Item("Facing").ToString = "6" Then
                    lblFacing1.Text = "South West"
                ElseIf ReadRow.Item("Facing").ToString = "7" Then
                    lblFacing1.Text = "West"
                ElseIf ReadRow.Item("Facing").ToString = "8" Then
                    lblFacing1.Text = "North West"
                ElseIf ReadRow.Item("Facing").ToString = "9" Then
                    lblFacing1.Text = "N/A"
                Else
                    lblFacing1.Text = String.Empty
                End If

                If ReadRow.Item("Zoning").ToString = "1" Then
                    lblZoning1.Text = "Commercial"
                ElseIf ReadRow.Item("Zoning").ToString = "2" Then
                    lblZoning1.Text = "Residential"
                ElseIf ReadRow.Item("Zoning").ToString = "3" Then
                    lblZoning1.Text = "Transition"
                ElseIf ReadRow.Item("Zoning").ToString = "4" Then
                    lblZoning1.Text = "Industrial"
                ElseIf ReadRow.Item("Zoning").ToString = "5" Then
                    lblZoning1.Text = "Algriculture"
                ElseIf ReadRow.Item("Zoning").ToString = "6" Then
                    lblZoning1.Text = "Others"
                Else
                    lblZoning1.Text = String.Empty
                End If

                lblRoom1.Text = ReadRow.Item("Room").ToString
                lblBathroom1.Text = ReadRow.Item("Bathroom").ToString
                If ReadRow.Item("BestBuy").ToString = "1" Then
                    lblBestbuy1.Text = "☑"
                Else
                    lblBestbuy1.Text = ""
                End If

                If ReadRow.Item("ExclusiveStatus").ToString = "1" Then
                    lblExclusive1.Text = "☑"
                Else
                    lblExclusive1.Text = ""
                End If
                If Not ReadRow.Item("ExclusiveEndDate") Is DBNull.Value Then
                    lblExclusiveEndDate1.Text = Format(ReadRow.Item("ExclusiveEndDate"), "dd-MMM-yyyy")
                Else
                    lblExclusiveEndDate1.Text = ""
                End If

                If Not ReadRow.Item("ExclusiveWhen") Is DBNull.Value Then
                    lblExclusiveWhen1.Text = Format(ReadRow.Item("ExclusiveWhen"), "dd-MMM-yyyy")
                Else
                    lblExclusiveWhen1.Text = ""
                End If

                lblExclusiveWho1.Text = ReadRow.Item("ExclusiveWho").ToString
                If ReadRow.Item("AuthorizeSaleRent").ToString = "1" Then
                    lblAuthorizeSaleRent1.Text = "☑"
                Else
                    lblAuthorizeSaleRent1.Text = ""
                End If
                lblRemark1.Text = ReadRow.Item("Remark").ToString
                lblPropertyDescription1.Text = ReadRow.Item("PropertyDesc").ToString

                'For Listing Information
                'SR
                If ReadRow.Item("SRYes").ToString = "1" Then
                    lblSR1.Text = "☑"
                Else
                    lblSR1.Text = ""
                End If
                lblSRSales1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SRAmt"))
                lblSRSalesPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SRPSF"))
                lblSRAsk1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SRAskAmt"))
                lblSRAskPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SRAskPSF"))
                If Not ReadRow.Item("SRCreateDate") Is DBNull.Value Then
                    lblSRDateCreated1.Text = Format(ReadRow.Item("SRCreateDate"), "dd-MMM-yyyy")
                Else
                    lblSRDateCreated1.Text = ""
                End If

                'SC
                If ReadRow.Item("SCYes").ToString = "1" Then
                    lblSC1.Text = "☑"
                Else
                    lblSC1.Text = ""
                End If
                lblSCSales1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SCAmt"))
                lblSCSalesPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SCPSF"))
                lblSCAsk1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SCAskAmt"))
                lblSCAskPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SCAskPSF"))
                If Not ReadRow.Item("SCCreateDate") Is DBNull.Value Then
                    lblSCDateCreated1.Text = Format(ReadRow.Item("SCCreateDate"), "dd-MMM-yyyy")
                Else
                    lblSCDateCreated1.Text = ""
                End If

                'SL
                If ReadRow.Item("SLYes").ToString = "1" Then
                    lblSL1.Text = "☑"
                Else
                    lblSL1.Text = ""
                End If
                lblSLSales1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SLAmt"))
                lblSLSalesPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SLPSF"))
                lblSLAsk1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SLAskAmt"))
                lblSLAskPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SLAskPSF"))
                If Not ReadRow.Item("SLCreateDate") Is DBNull.Value Then
                    lblSLDateCreated1.Text = Format(ReadRow.Item("SLCreateDate"), "dd-MMM-yyyy")
                Else
                    lblSLDateCreated1.Text = ""
                End If

                'SI
                If ReadRow.Item("SIYes").ToString = "1" Then
                    lblSI1.Text = "☑"
                Else
                    lblSI1.Text = ""
                End If
                lblSISales1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SIAmt"))
                lblSISalesPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SIPSF"))
                lblSIAsk1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SIAskAmt"))
                lblSIAskPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SIAskPSF"))
                If Not ReadRow.Item("SICreateDate") Is DBNull.Value Then
                    lblSIDateCreated1.Text = Format(ReadRow.Item("SICreateDate"), "dd-MMM-yyyy")
                Else
                    lblSIDateCreated1.Text = ""
                End If

                'RR
                If ReadRow.Item("RRYes").ToString = "1" Then
                    lblRR1.Text = "☑"
                Else
                    lblRR1.Text = ""
                End If
                lblRRSales1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RRAmt"))
                lblRRSalesPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RRPSF"))
                lblRRAsk1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RRAskAmt"))
                lblRRAskPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RRAskPSF"))
                If Not ReadRow.Item("RRCreateDate") Is DBNull.Value Then
                    lblRRDateCreated1.Text = Format(ReadRow.Item("RRCreateDate"), "dd-MMM-yyyy")
                Else
                    lblRRDateCreated1.Text = ""
                End If

                'RC
                If ReadRow.Item("RCYes").ToString = "1" Then
                    lblRC1.Text = "☑"
                Else
                    lblRC1.Text = ""
                End If
                lblRCSales1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RCAmt"))
                lblRCSalesPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RCPSF"))
                lblRCAsk1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RCAskAmt"))
                lblRCAskPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RCAskPSF"))
                If Not ReadRow.Item("RCCreateDate") Is DBNull.Value Then
                    lblRCDateCreated1.Text = Format(ReadRow.Item("RCCreateDate"), "dd-MMM-yyyy")
                Else
                    lblRCDateCreated1.Text = ""
                End If

                'RL
                If ReadRow.Item("RLYes").ToString = "1" Then
                    lblRL1.Text = "☑"
                Else
                    lblRL1.Text = ""
                End If
                lblRLSales1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RLAmt"))
                lblRLSalesPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RLPSF"))
                lblRLAsk1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RLAskAmt"))
                lblRLAskPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RLAskPSF"))
                If Not ReadRow.Item("RLCreateDate") Is DBNull.Value Then
                    lblRLDateCreated1.Text = Format(ReadRow.Item("RLCreateDate"), "dd-MMM-yyyy")
                Else
                    lblRLDateCreated1.Text = ""
                End If

                'RI
                If ReadRow.Item("RIYes").ToString = "1" Then
                    lblRI1.Text = "☑"
                Else
                    lblRI1.Text = ""
                End If
                lblRISales1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RIAmt"))
                lblRISalesPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RIPSF"))
                lblRIAsk1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RIAskAmt"))
                lblRIAskPFS1.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RIAskPSF"))
                If Not ReadRow.Item("RICreateDate") Is DBNull.Value Then
                    lblRIDateCreated1.Text = Format(ReadRow.Item("RICreateDate"), "dd-MMM-yyyy")
                Else
                    lblRIDateCreated1.Text = ""
                End If

                lblLister1.Text = ReadRow.Item("SLister").ToString
                lblRLister1.Text = ReadRow.Item("RLister").ToString

                'Industrial Information
                lblProduction1.Text = ReadRow.Item("Production").ToString
                lblAdmin1.Text = ReadRow.Item("Admin").ToString
                lblFloorLoad1.Text = ReadRow.Item("FloorLoad").ToString
                lblSecMK1.Text = ReadRow.Item("SECMK").ToString
                lblCeiling1.Text = ReadRow.Item("Ceiling").ToString
                lblTerrain1.Text = ReadRow.Item("Terrain").ToString
                lblDistrict1.Text = ReadRow.Item("District").ToString
                lblLot1.Text = ReadRow.Item("Lot").ToString
                lblPhase1.Text = ReadRow.Item("Phase").ToString

                If ReadRow.Item("Furnished").ToString = "1" Then
                    lblFurnished1.Text = "Furnished"
                ElseIf ReadRow.Item("Furnished").ToString = "2" Then
                    lblFurnished1.Text = "Not Furnished"
                ElseIf ReadRow.Item("Furnished").ToString = "3" Then
                    lblFurnished1.Text = "Partially Furnished"
                Else
                    lblFurnished1.Text = String.Empty
                End If
                lblFurnishedRemark1.Text = ReadRow.Item("FurnishedRemark").ToString

                If ReadRow.Item("Renovated").ToString = "1" Then
                    lblRenovated1.Text = "Renovated"
                ElseIf ReadRow.Item("Renovated").ToString = "2" Then
                    lblRenovated1.Text = "Not Renovated"
                ElseIf ReadRow.Item("Renovated").ToString = "3" Then
                    lblRenovated1.Text = "Partially Renovated"
                Else
                    lblRenovated1.Text = String.Empty
                End If
                lblRenovatedRemark1.Text = ReadRow.Item("RenovatedRemark").ToString
                lblDeveloper1.Text = ReadRow.Item("Developer").ToString


                'Landlord Information
                lblLandlordName1.Text = ReadRow.Item("LandlordName").ToString
                lblLandlordMobile1.Text = ReadRow.Item("LandlordMobile").ToString
                lblLandlordPhone1.Text = ReadRow.Item("LandlordPhone").ToString
                lblLandlordEmail1.Text = ReadRow.Item("LandlordEmail").ToString
                lblLandlordFax1.Text = ReadRow.Item("LandlordFax").ToString
                lblLandlordAddress1.Text = ReadRow.Item("LandlordAddress").ToString
                If ReadRow.Item("ReferLandlordLister").ToString = "1" Then
                    lblLandlordReferToLister1.Text = "☑"
                Else
                    lblLandlordReferToLister1.Text = ""
                End If

                'Owner Information
                lblOwnerName1.Text = ReadRow.Item("OwnerName").ToString
                lblOwnerMobile1.Text = ReadRow.Item("OwnerMobile").ToString
                lblOwnerPhone1.Text = ReadRow.Item("OwnerPhone").ToString
                lblOwnerEmail1.Text = ReadRow.Item("OwnerEmail").ToString
                lblOwnerFax1.Text = ReadRow.Item("OwnerFax").ToString
                lblOwnerAddress1.Text = ReadRow.Item("OwnerAddress").ToString
                If ReadRow.Item("ReferLister").ToString = "1" Then
                    lblOwnerReferToLister1.Text = "☑"
                Else
                    lblOwnerReferToLister1.Text = ""
                End If

                'Property Status
                ' a.RListStatus, a.SListStatus, a.RRelistStatus, a.SRelistStatus
                If ReadRow.Item("SRelistStatus") Is DBNull.Value Then
                    lblSStatus1.Text = "RELIST"
                ElseIf ReadRow.Item("SRelistStatus") = "0" Then
                    lblSStatus1.Text = "NEW PROPERTY"
                ElseIf ReadRow.Item("SRelistStatus") = "1" Then
                    lblSStatus1.Text = "PENDING PROPERTY"
                ElseIf ReadRow.Item("SRelistStatus") = "2" Then
                    lblSStatus1.Text = "COMPLETED PROPERTY"
                End If
                If ReadRow.Item("SListStatus").ToString = "1" Then
                    lblSStatus1.Text = lblSStatus1.Text & " (NOT FOR SALE)"
                ElseIf ReadRow.Item("SListStatus").ToString = "2" Then
                    lblSStatus1.Text = lblSStatus1.Text & " (SALE BY OWNER)"
                Else
                    lblSStatus1.Text = lblSStatus1.Text
                End If

                If ReadRow.Item("RRelistStatus") Is DBNull.Value Then
                    lblRStatus1.Text = "RELIST"
                ElseIf ReadRow.Item("RRelistStatus") = "0" Then
                    lblRStatus1.Text = "NEW PROPERTY"
                ElseIf ReadRow.Item("RRelistStatus") = "1" Then
                    lblRStatus1.Text = "PENDING PROPERTY"
                ElseIf ReadRow.Item("RRelistStatus") = "2" Then
                    lblRStatus1.Text = "COMPLETED PROPERTY"
                End If
                If ReadRow.Item("RListStatus").ToString = "1" Then
                    lblRStatus1.Text = lblRStatus1.Text & " (NOT FOR RENT)"
                ElseIf ReadRow.Item("RListStatus").ToString = "2" Then
                    lblRStatus1.Text = lblRStatus1.Text & " (RENT BY OWNER)"
                Else
                    lblRStatus1.Text = lblRStatus1.Text
                End If

                lblCPPlanNo1.Text = ReadRow.Item("CPPlanNo").ToString
                lblFloor1.Text = ReadRow.Item("Floor").ToString
                lblCompanyName1.Text = ReadRow.Item("CompanyName").ToString
                lblViewContat1.Text = ReadRow.Item("ViewContact").ToString
                lblOtherContact1.Text = ReadRow.Item("OtherContact").ToString
                lblCommissionRemark1.Text = ReadRow.Item("CommissionRemark").ToString
                If ReadRow.Item("SaleView").ToString = "1" Then
                    lblSaleView1.Text = "☑"
                Else
                    lblSaleView1.Text = ""
                End If
                If ReadRow.Item("RentView").ToString = "1" Then
                    lblRentView1.Text = "☑"
                Else
                    lblRentView1.Text = ""
                End If

                lblSaleRemark1.Text = ReadRow.Item("SaleRemark").ToString
                lblRentRemark1.Text = ReadRow.Item("RentRemark").ToString

                lblLatitude1.Text = ReadRow.Item("Latitude").ToString
                lblLongitude1.Text = ReadRow.Item("Longitude").ToString
                If ReadRow.Item("SaleGST").ToString = "1" Then
                    lblSaleGST1.Text = "☑"
                Else
                    lblSaleGST1.Text = ""
                End If
                If ReadRow.Item("RentGST").ToString = "1" Then
                    lblRentGST1.Text = "☑"
                Else
                    lblRentGST1.Text = ""
                End If
                lblUpdateWho1.Text = ReadRow.Item("UpdateWho").ToString

            Next

            If ddlProperty2.SelectedValue <> Guid.Empty.ToString Then
                Comparison()
            End If
        End If
    End Sub

    Protected Sub ddlProperty2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlProperty2.SelectedIndexChanged
        If ddlProperty2.SelectedValue <> Guid.Empty.ToString Then
            Dim objDB As New Database(AppSettings("datasource"), AppSettings("database"), AppSettings("username"), AppSettings("password"), AppSettings("timeout"), AppSettings("pooling"))
            Dim TempDT As New Data.DataTable

            objDB.OpenConnection()
            objDB.dbVariable.SQLString = "SELECT a.PropertyId, r.Road, p.Project, t.[Type] as PropertyType, a.UnitNumber, " & _
                                   "isnull(a.UnitNumber,'') + ', ' + isnull(r.Road,'') + ', ' + isnull(l.Location,'') + ', ' + isnull(s.State,'') + ', ' + isnull(c.Country,'') as 'Address', " & _
                                   "a.ListType, a.SRAmt, a.SRPSF, a.SRAskAmt, a.SRAskPSF, a.SRCreateDate, a.SRYes, " & _
                                   "a.SCAmt, a.SCPSF, a.SCAskAmt, a.SCAskPSF, a.SCCreateDate, a.SCYes, a.SLAmt, a.SLPSF, " & _
                                   "a.SLAskAmt, a.SLAskPSF, a.SLCreateDate, a.SLYes, a.SIAmt, a.SIPSF, a.SIAskAmt, a.SIAskPSF, a.SICreateDate, " & _
                                   "a.SIYes, a.RRAmt, a.RRPSF, a.RRAskAmt, a.RRAskPSF, a.RRCreateDate, " & _
                                   "a.RRYes, a.RCAmt, a.RCPSF, a.RCAskAmt, a.RCAskPSF, a.RCCreateDate, a.RCYes, " & _
                                   "a.RLAmt, a.RLPSF, a.RLAskAmt, a.RLAskPSF, a.RLCreateDate, a.RLYes, a.RIAmt, a.RIPSF, " & _
                                   "a.RIAskAmt, a.RIAskPSF, a.RICreateDate, a.RIYes, rs.Initial as SLister, a.SListerId, a.RListerId, " & _
                                   "rr.Initial as RLister, a.KeyInOffice, a.ProjectRemark, a.PropertyDesc, " & _
                                   "a.SignboardStatus, a.SignboardWhere, a.SignboardWhen, a.SurveySheet, " & _
                                   "a.QuitRent, a.AssessmentBill, a.PendingStatus, a.PendingWho, " & _
                                   "a.PendingWhen, a.PendingWhy, a.Tenure, a.ListHoldExpired, " & _
                                   "a.Access, a.Condition, a.Facing, a.Zoning, a.Room, a.Bathroom, a.BestBuy, a.ExclusiveStatus, " & _
                                   "a.ExclusiveWho, a.ExclusiveWhen, a.ExclusiveEndDate, a.AuthorizeSaleRent, a.Remark, " & _
                                   "a.AgentFeedback,a.AgentFeedbackRent,a.CommissionRemark, " & _
                                   "a.SaleView, a.RentView, a.SaleRemark, a.RentRemark, a.Latitude, a.Longitude, a.SaleGST, a.RentGST,ru.Initial as UpdateWho, " & _
                                   "CONVERT(nvarchar(21), ISNULL(a.Production1, 0)) + ' X ' + CONVERT(nvarchar(21), a.Production2) + ' = ' + CONVERT(nvarchar(21), a.Production3) AS 'Production', " & _
                                   "CONVERT(nvarchar(21), a.Admin1) + ' X ' + CONVERT(nvarchar(21), a.Admin2) + ' = ' + CONVERT(nvarchar(21), a.Admin3) AS 'Admin', " & _
                                   "CONVERT(nvarchar(21), LAWidth) + ' X ' + CONVERT(nvarchar(21), LALength) + ' = ' + CONVERT(nvarchar(21), LASF) AS 'LASQ', " & _
                                   "CONVERT(nvarchar(21), BUWidth) + ' X ' + CONVERT(nvarchar(21), BULength) + ' = ' + CONVERT(nvarchar(21), BUSF) AS 'BUSQ', " & _
                                   "a.[Ceiling], a.Terrain, a.District, a.FloorLoad, a.SECMK, a.Lot, a.Phase, " & _
                                   "a.Furnished, a.FurnishedRemark, a.Renovated, a.RenovatedRemark, a.Developer, a.OwnerName, " & _
                                   "a.OwnerMobile, a.OwnerPhone, a.OwnerFax, a.OwnerEmail, a.OwnerAddress, a.ReferLister, " & _
                                   "a.LandlordName, a.LandlordMobile, a.LandlordPhone, a.LandlordFax, a.LandlordEmail, a.LandlordAddress, " & _
                                   "a.ReferLandlordLister, a.RListStatus, a.SListStatus, a.RRelistStatus, a.SRelistStatus,a.CPPlanNo,a.Floor,a.CompanyName,a.ViewContact,a.OtherContact " & _
                                   "FROM " + AppSettings("logdatasource").ToString() + ".dbo.AW_Property a LEFT OUTER JOIN " & _
                                   "AW_Road r ON a.RoadId = r.RoadId LEFT OUTER JOIN AW_Project p ON a.ProjectId = p.ProjectId " & _
                                   "LEFT OUTER JOIN AW_PropertyType t ON a.PropertyTypeId = t.TypeId LEFT OUTER JOIN AW_Staff rs " & _
                                   "ON a.SListerId = rs.StaffId LEFT OUTER JOIN AW_Staff rr ON a.RListerId = rr.StaffId " & _
                                   "LEFT OUTER JOIN AW_Staff ru ON a.UpdateWho = ru.StaffId " & _
                                   "LEFT OUTER JOIN AW_Location l ON r.LocationId = l.LocationId LEFT OUTER JOIN AW_State s ON l.StateId = s.StateId " & _
                                   "LEFT OUTER JOIN AW_Country c on s.CountryId = c.CountryId WHERE a.OId =@OId"
            objDB.AddParameter("OID", Data.SqlDbType.UniqueIdentifier, New Guid(ddlProperty2.SelectedValue))
            objDB.FillData(TempDT, "Property", Database.SQLCommandType.NormalString)
            objDB.CloseConnection()

            For Each ReadRow As Data.DataRow In TempDT.Rows

                lblAddress2.Text = ReadRow.Item("Address").ToString
                lblProject2.Text = ReadRow.Item("Project").ToString
                lblPropertyType2.Text = ReadRow.Item("PropertyType").ToString
                If ReadRow.Item("KeyInOffice").ToString = "1" Then
                    lblKeyInOffice2.Text = "☑"
                Else
                    lblKeyInOffice2.Text = ""
                End If
                lblProjectRemark2.Text = ReadRow.Item("ProjectRemark").ToString
                lblLASQFT2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("LASQ"))
                lblBUSQFT2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("BUSQ"))
                If ReadRow.Item("SignboardStatus").ToString = "1" Then
                    lblSignboard2.Text = "☑"
                Else
                    lblSignboard2.Text = ""
                End If
                If Not ReadRow.Item("SignboardWhen") Is DBNull.Value Then
                    lblSignboardWhen2.Text = Format(ReadRow.Item("SignboardWhen"), "dd-MMM-yyyy")
                Else
                    lblSignboardWhen2.Text = ""
                End If
                lblSignboardWhere2.Text = ReadRow.Item("SignboardWhere").ToString
                lblSurveySheet2.Text = ReadRow.Item("SurveySheet").ToString
                lblQuitRent2.Text = ReadRow.Item("QuitRent").ToString
                lblAssessmentBill2.Text = ReadRow.Item("AssessmentBill").ToString

                If ReadRow.Item("PendingStatus") = "1" Then
                    lblPending2.Text = "☑"
                Else
                    lblPending2.Text = ""
                End If
                lblPendingWho2.Text = ReadRow.Item("PendingWho").ToString
                If Not ReadRow.Item("PendingWhen") Is DBNull.Value Then
                    lblPendingWhen2.Text = Format(ReadRow.Item("PendingWhen"), "dd-MMM-yyyy")
                Else
                    lblPendingWhen2.Text = ""
                End If

                lblPendingWhy2.Text = ReadRow.Item("PendingWhy").ToString

                If ReadRow.Item("Tenure").ToString = "1" Then
                    lblTenure2.Text = "Freehold"
                ElseIf ReadRow.Item("Tenure").ToString = "2" Then
                    lblTenure2.Text = "Leasehold"
                Else
                    lblTenure2.Text = String.Empty
                End If
                If ReadRow.Item("Tenure").ToString = "2" Then '--Listhold
                    lblTenure2.Text = lblTenure2.Text & "(" & ReadRow.Item("ListHoldExpired").ToString & ")"
                End If

                If ReadRow.Item("Access").ToString = "1" Then
                    lblAccess2.Text = "Direct"
                ElseIf ReadRow.Item("Access").ToString = "2" Then
                    lblAccess2.Text = "Friend"
                ElseIf ReadRow.Item("Access").ToString = "3" Then
                    lblAccess2.Text = "Key in office"
                ElseIf ReadRow.Item("Access").ToString = "4" Then
                    lblAccess2.Text = "Tenant"
                ElseIf ReadRow.Item("Access").ToString = "5" Then
                    lblAccess2.Text = "Owner"
                ElseIf ReadRow.Item("Access").ToString = "6" Then
                    lblAccess2.Text = "Representative"
                ElseIf ReadRow.Item("Access").ToString = "7" Then
                    lblAccess2.Text = "Relative"
                ElseIf ReadRow.Item("Access").ToString = "8" Then
                    lblAccess2.Text = "Others"
                Else
                    lblAccess2.Text = String.Empty
                End If

                If ReadRow.Item("Condition").ToString = "1" Then
                    lblCondition2.Text = "Vacant"
                ElseIf ReadRow.Item("Condition").ToString = "2" Then
                    lblCondition2.Text = "Tenanted"
                ElseIf ReadRow.Item("Condition").ToString = "3" Then
                    lblCondition2.Text = "Owner Occupied"
                ElseIf ReadRow.Item("Condition").ToString = "4" Then
                    lblCondition2.Text = "Care Taker"
                ElseIf ReadRow.Item("Condition").ToString = "5" Then
                    lblCondition2.Text = "Under Construction"
                Else
                    lblCondition2.Text = String.Empty
                End If

                If ReadRow.Item("Facing").ToString = "1" Then
                    lblFacing2.Text = "North"
                ElseIf ReadRow.Item("Facing").ToString = "2" Then
                    lblFacing2.Text = "North East"
                ElseIf ReadRow.Item("Facing").ToString = "3" Then
                    lblFacing2.Text = "East"
                ElseIf ReadRow.Item("Facing").ToString = "4" Then
                    lblFacing2.Text = "South East"
                ElseIf ReadRow.Item("Facing").ToString = "5" Then
                    lblFacing2.Text = "South"
                ElseIf ReadRow.Item("Facing").ToString = "6" Then
                    lblFacing2.Text = "South West"
                ElseIf ReadRow.Item("Facing").ToString = "7" Then
                    lblFacing2.Text = "West"
                ElseIf ReadRow.Item("Facing").ToString = "8" Then
                    lblFacing2.Text = "North West"
                ElseIf ReadRow.Item("Facing").ToString = "9" Then
                    lblFacing2.Text = "N/A"
                Else
                    lblFacing2.Text = String.Empty
                End If

                If ReadRow.Item("Zoning").ToString = "1" Then
                    lblZoning2.Text = "Commercial"
                ElseIf ReadRow.Item("Zoning").ToString = "2" Then
                    lblZoning2.Text = "Residential"
                ElseIf ReadRow.Item("Zoning").ToString = "3" Then
                    lblZoning2.Text = "Transition"
                ElseIf ReadRow.Item("Zoning").ToString = "4" Then
                    lblZoning2.Text = "Industrial"
                ElseIf ReadRow.Item("Zoning").ToString = "5" Then
                    lblZoning2.Text = "Algriculture"
                ElseIf ReadRow.Item("Zoning").ToString = "6" Then
                    lblZoning2.Text = "Others"
                Else
                    lblZoning2.Text = String.Empty
                End If

                lblRoom2.Text = ReadRow.Item("Room").ToString
                lblBathroom2.Text = ReadRow.Item("Bathroom").ToString
                If ReadRow.Item("BestBuy").ToString = "1" Then
                    lblBestbuy2.Text = "☑"
                Else
                    lblBestbuy2.Text = ""
                End If

                If ReadRow.Item("ExclusiveStatus").ToString = "1" Then
                    lblExclusive2.Text = "☑"
                Else
                    lblExclusive2.Text = ""
                End If
                If Not ReadRow.Item("ExclusiveEndDate") Is DBNull.Value Then
                    lblExclusiveEndDate2.Text = Format(ReadRow.Item("ExclusiveEndDate"), "dd-MMM-yyyy")
                Else
                    lblExclusiveEndDate2.Text = ""
                End If

                If Not ReadRow.Item("ExclusiveWhen") Is DBNull.Value Then
                    lblExclusiveWhen2.Text = Format(ReadRow.Item("ExclusiveWhen"), "dd-MMM-yyyy")
                Else
                    lblExclusiveWhen2.Text = ""
                End If

                lblExclusiveWho2.Text = ReadRow.Item("ExclusiveWho").ToString
                If ReadRow.Item("AuthorizeSaleRent").ToString = "1" Then
                    lblAuthorizeSaleRent2.Text = "☑"
                Else
                    lblAuthorizeSaleRent2.Text = ""
                End If
                lblRemark2.Text = ReadRow.Item("Remark").ToString
                lblPropertyDescription2.Text = ReadRow.Item("PropertyDesc").ToString

                'For Listing Information
                'SR
                If ReadRow.Item("SRYes").ToString = "1" Then
                    lblSR2.Text = "☑"
                Else
                    lblSR2.Text = ""
                End If
                lblSRSales2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SRAmt"))
                lblSRSalesPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SRPSF"))
                lblSRAsk2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SRAskAmt"))
                lblSRAskPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SRAskPSF"))
                If Not ReadRow.Item("SRCreateDate") Is DBNull.Value Then
                    lblSRDateCreated2.Text = Format(ReadRow.Item("SRCreateDate"), "dd-MMM-yyyy")
                Else
                    lblSRDateCreated2.Text = ""
                End If

                'SC
                If ReadRow.Item("SCYes").ToString = "1" Then
                    lblSC2.Text = "☑"
                Else
                    lblSC2.Text = ""
                End If
                lblSCSales2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SCAmt"))
                lblSCSalesPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SCPSF"))
                lblSCAsk2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SCAskAmt"))
                lblSCAskPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SCAskPSF"))
                If Not ReadRow.Item("SCCreateDate") Is DBNull.Value Then
                    lblSCDateCreated2.Text = Format(ReadRow.Item("SCCreateDate"), "dd-MMM-yyyy")
                Else
                    lblSCDateCreated2.Text = ""
                End If

                'SL
                If ReadRow.Item("SLYes").ToString = "1" Then
                    lblSL2.Text = "☑"
                Else
                    lblSL2.Text = ""
                End If
                lblSLSales2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SLAmt"))
                lblSLSalesPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SLPSF"))
                lblSLAsk2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SLAskAmt"))
                lblSLAskPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SLAskPSF"))
                If Not ReadRow.Item("SLCreateDate") Is DBNull.Value Then
                    lblSLDateCreated2.Text = Format(ReadRow.Item("SLCreateDate"), "dd-MMM-yyyy")
                Else
                    lblSLDateCreated2.Text = ""
                End If

                'SI
                If ReadRow.Item("SIYes").ToString = "1" Then
                    lblSI2.Text = "☑"
                Else
                    lblSI2.Text = ""
                End If
                lblSISales2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SIAmt"))
                lblSISalesPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SIPSF"))
                lblSIAsk2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SIAskAmt"))
                lblSIAskPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("SIAskPSF"))
                If Not ReadRow.Item("SICreateDate") Is DBNull.Value Then
                    lblSIDateCreated2.Text = Format(ReadRow.Item("SICreateDate"), "dd-MMM-yyyy")
                Else
                    lblSIDateCreated2.Text = ""
                End If

                'RR
                If ReadRow.Item("RRYes").ToString = "1" Then
                    lblRR2.Text = "☑"
                Else
                    lblRR2.Text = ""
                End If
                lblRRSales2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RRAmt"))
                lblRRSalesPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RRPSF"))
                lblRRAsk2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RRAskAmt"))
                lblRRAskPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RRAskPSF"))
                If Not ReadRow.Item("RRCreateDate") Is DBNull.Value Then
                    lblRRDateCreated2.Text = Format(ReadRow.Item("RRCreateDate"), "dd-MMM-yyyy")
                Else
                    lblRRDateCreated2.Text = ""
                End If

                'RC
                If ReadRow.Item("RCYes").ToString = "1" Then
                    lblRC2.Text = "☑"
                Else
                    lblRC2.Text = ""
                End If
                lblRCSales2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RCAmt"))
                lblRCSalesPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RCPSF"))
                lblRCAsk2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RCAskAmt"))
                lblRCAskPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RCAskPSF"))
                If Not ReadRow.Item("RCCreateDate") Is DBNull.Value Then
                    lblRCDateCreated2.Text = Format(ReadRow.Item("RCCreateDate"), "dd-MMM-yyyy")
                Else
                    lblRCDateCreated2.Text = ""
                End If

                'RL
                If ReadRow.Item("RLYes").ToString = "1" Then
                    lblRL2.Text = "☑"
                Else
                    lblRL2.Text = ""
                End If
                lblRLSales2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RLAmt"))
                lblRLSalesPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RLPSF"))
                lblRLAsk2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RLAskAmt"))
                lblRLAskPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RLAskPSF"))
                If Not ReadRow.Item("RLCreateDate") Is DBNull.Value Then
                    lblRLDateCreated2.Text = Format(ReadRow.Item("RLCreateDate"), "dd-MMM-yyyy")
                Else
                    lblRLDateCreated2.Text = ""
                End If

                'RI
                If ReadRow.Item("RIYes").ToString = "1" Then
                    lblRI2.Text = "☑"
                Else
                    lblRI2.Text = ""
                End If
                lblRISales2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RIAmt"))
                lblRISalesPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RIPSF"))
                lblRIAsk2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RIAskAmt"))
                lblRIAskPFS2.Text = String.Format("{0:#,##0.00}", ReadRow.Item("RIAskPSF"))
                If Not ReadRow.Item("RICreateDate") Is DBNull.Value Then
                    lblRIDateCreated2.Text = Format(ReadRow.Item("RICreateDate"), "dd-MMM-yyyy")
                Else
                    lblRIDateCreated2.Text = ""
                End If

                lblLister2.Text = ReadRow.Item("SLister").ToString
                lblRLister2.Text = ReadRow.Item("RLister").ToString

                'Industrial Information
                lblProduction2.Text = ReadRow.Item("Production").ToString
                lblAdmin2.Text = ReadRow.Item("Admin").ToString
                lblProduction2.Text = ReadRow.Item("Production").ToString
                lblFloorLoad2.Text = ReadRow.Item("FloorLoad").ToString
                lblSecMK2.Text = ReadRow.Item("SECMK").ToString
                lblCeiling2.Text = ReadRow.Item("Ceiling").ToString
                lblTerrain2.Text = ReadRow.Item("Terrain").ToString
                lblDistrict2.Text = ReadRow.Item("District").ToString
                lblLot2.Text = ReadRow.Item("Lot").ToString
                lblPhase2.Text = ReadRow.Item("Phase").ToString

                If ReadRow.Item("Furnished").ToString = "1" Then
                    lblFurnished2.Text = "Furnished"
                ElseIf ReadRow.Item("Furnished").ToString = "2" Then
                    lblFurnished2.Text = "Not Furnished"
                ElseIf ReadRow.Item("Furnished").ToString = "3" Then
                    lblFurnished2.Text = "Partially Furnished"
                Else
                    lblFurnished2.Text = String.Empty
                End If
                lblFurnishedRemark2.Text = ReadRow.Item("FurnishedRemark").ToString

                If ReadRow.Item("Renovated").ToString = "1" Then
                    lblRenovated2.Text = "Renovated"
                ElseIf ReadRow.Item("Renovated").ToString = "2" Then
                    lblRenovated2.Text = "Not Renovated"
                ElseIf ReadRow.Item("Renovated").ToString = "3" Then
                    lblRenovated2.Text = "Partially Renovated"
                Else
                    lblRenovated2.Text = String.Empty
                End If
                lblRenovatedRemark2.Text = ReadRow.Item("RenovatedRemark").ToString
                lblDeveloper2.Text = ReadRow.Item("Developer").ToString


                'Landlord Information
                lblLandlordName2.Text = ReadRow.Item("LandlordName").ToString
                lblLandlordMobile2.Text = ReadRow.Item("LandlordMobile").ToString
                lblLandlordPhone2.Text = ReadRow.Item("LandlordPhone").ToString
                lblLandlordEmail2.Text = ReadRow.Item("LandlordEmail").ToString
                lblLandlordFax2.Text = ReadRow.Item("LandlordFax").ToString
                lblLandlordAddress2.Text = ReadRow.Item("LandlordAddress").ToString
                If ReadRow.Item("ReferLandlordLister").ToString = "1" Then
                    lblLandlordReferToLister2.Text = "☑"
                Else
                    lblLandlordReferToLister2.Text = ""
                End If

                'Owner Information
                lblOwnerName2.Text = ReadRow.Item("OwnerName").ToString
                lblOwnerMobile2.Text = ReadRow.Item("OwnerMobile").ToString
                lblOwnerPhone2.Text = ReadRow.Item("OwnerPhone").ToString
                lblOwnerEmail2.Text = ReadRow.Item("OwnerEmail").ToString
                lblOwnerFax2.Text = ReadRow.Item("OwnerFax").ToString
                lblOwnerAddress2.Text = ReadRow.Item("OwnerAddress").ToString
                If ReadRow.Item("ReferLister").ToString = "1" Then
                    lblOwnerReferToLister2.Text = "☑"
                Else
                    lblOwnerReferToLister2.Text = ""
                End If

                'Property Status
                ' a.RListStatus, a.SListStatus, a.RRelistStatus, a.SRelistStatus
                If ReadRow.Item("SRelistStatus") Is DBNull.Value Then
                    lblSStatus2.Text = "RELIST"
                ElseIf ReadRow.Item("SRelistStatus") = "0" Then
                    lblSStatus2.Text = "NEW PROPERTY"
                ElseIf ReadRow.Item("SRelistStatus") = "1" Then
                    lblSStatus2.Text = "PENDING PROPERTY"
                ElseIf ReadRow.Item("SRelistStatus") = "2" Then
                    lblSStatus2.Text = "COMPLETED PROPERTY"
                End If
                If ReadRow.Item("SListStatus").ToString = "1" Then
                    lblSStatus2.Text = lblSStatus2.Text & " (NOT FOR SALE)"
                ElseIf ReadRow.Item("SListStatus").ToString = "2" Then
                    lblSStatus2.Text = lblSStatus2.Text & " (SALE BY OWNER)"
                Else
                    lblSStatus2.Text = lblSStatus2.Text
                End If

                If ReadRow.Item("RRelistStatus") Is DBNull.Value Then
                    lblRStatus2.Text = "RELIST"
                ElseIf ReadRow.Item("RRelistStatus") = "0" Then
                    lblRStatus2.Text = "NEW PROPERTY"
                ElseIf ReadRow.Item("RRelistStatus") = "1" Then
                    lblRStatus2.Text = "PENDING PROPERTY"
                ElseIf ReadRow.Item("RRelistStatus") = "2" Then
                    lblRStatus2.Text = "COMPLETED PROPERTY"
                End If
                If ReadRow.Item("RListStatus").ToString = "1" Then
                    lblRStatus2.Text = lblRStatus2.Text & " (NOT FOR RENT)"
                ElseIf ReadRow.Item("RListStatus").ToString = "2" Then
                    lblRStatus2.Text = lblRStatus2.Text & " (RENT BY OWNER)"
                Else
                    lblRStatus2.Text = lblRStatus2.Text
                End If

                lblCPPlanNo2.Text = ReadRow.Item("CPPlanNo").ToString
                lblFloor2.Text = ReadRow.Item("Floor").ToString
                lblCompanyName2.Text = ReadRow.Item("CompanyName").ToString
                lblViewContact2.Text = ReadRow.Item("ViewContact").ToString
                lblOtherContact2.Text = ReadRow.Item("OtherContact").ToString
                lblCommissionRemark2.Text = ReadRow.Item("CommissionRemark").ToString
                If ReadRow.Item("SaleView").ToString = "1" Then
                    lblSaleView2.Text = "☑"
                Else
                    lblSaleView2.Text = ""
                End If
                If ReadRow.Item("RentView").ToString = "1" Then
                    lblRentView2.Text = "☑"
                Else
                    lblRentView2.Text = ""
                End If

                lblSaleRemark2.Text = ReadRow.Item("SaleRemark").ToString
                lblRentRemark2.Text = ReadRow.Item("RentRemark").ToString

                lblLatitude2.Text = ReadRow.Item("Latitude").ToString
                lblLongitude2.Text = ReadRow.Item("Longitude").ToString
                If ReadRow.Item("SaleGST").ToString = "1" Then
                    lblSaleGST2.Text = "☑"
                Else
                    lblSaleGST2.Text = ""
                End If
                If ReadRow.Item("RentGST").ToString = "1" Then
                    lblRentGST2.Text = "☑"
                Else
                    lblRentGST2.Text = ""
                End If
                lblUpdateWho2.Text = ReadRow.Item("UpdateWho").ToString
            Next

            If ddlProperty1.SelectedValue <> Guid.Empty.ToString Then
                Comparison()
            End If
        End If
    End Sub

    Private Sub Comparison()
        'a4db90
        'General Information
        If lblAddress1.Text.ToUpper.Trim <> lblAddress2.Text.ToUpper.Trim Then
            trAddress.BgColor = "#A4DB90"
        End If

        If lblProject1.Text.ToUpper.Trim <> lblProject2.Text.ToUpper.Trim Then
            trProject.BgColor = "#A4DB90"
        End If

        If lblPropertyType1.Text.Trim.ToUpper <> lblPropertyType2.Text.ToUpper.Trim Then
            trPropertyType.BgColor = "#A4DB90"
        End If

        If lblKeyInOffice1.Text.Trim.ToUpper <> lblKeyInOffice2.Text.ToUpper.Trim Then
            trKeyInOffice.BgColor = "#A4DB90"
        End If

        If lblProjectRemark1.Text.Trim.ToUpper <> lblProjectRemark2.Text.ToUpper.Trim Then
            trProjectRemark.BgColor = "#A4DB90"
        End If

        If lblLASQFT1.Text.Trim.ToUpper <> lblLASQFT2.Text.ToUpper.Trim Then
            trLASQFT.BgColor = "#A4DB90"
        End If

        If lblBUSQFT1.Text.Trim.ToUpper <> lblBUSQFT2.Text.ToUpper.Trim Then
            trBUSQFT.BgColor = "#A4DB90"
        End If

        If lblSignboard1.Text.Trim.ToUpper <> lblSignboard2.Text.ToUpper.Trim Then
            trSignboard.BgColor = "#A4DB90"
        End If

        If lblSignboardWhen1.Text.Trim.ToUpper <> lblSignboardWhen2.Text.ToUpper.Trim Then
            trSignboardWhen.BgColor = "#A4DB90"
        End If

        If lblSignboardWhere1.Text.Trim.ToUpper <> lblSignboardWhere2.Text.ToUpper.Trim Then
            trSignboardWhere.BgColor = "#A4DB90"
        End If

        If lblSurveySheet1.Text.Trim.ToUpper <> lblSurveySheet2.Text.ToUpper.Trim Then
            trSurveySheet.BgColor = "#A4DB90"
        End If

        If lblQuitRent1.Text.Trim.ToUpper <> lblQuitRent2.Text.ToUpper.Trim Then
            trQuitRent.BgColor = "#A4DB90"
        End If

        If lblAssessmentBill1.Text.Trim.ToUpper <> lblAssessmentBill2.Text.ToUpper.Trim Then
            trAssessmentBill.BgColor = "#A4DB90"
        End If

        If lblPending1.Text.Trim.ToUpper <> lblPending2.Text.ToUpper.Trim Then
            trPending.BgColor = "#A4DB90"
        End If

        If lblPendingWho1.Text.Trim.ToUpper <> lblPendingWho2.Text.ToUpper.Trim Then
            trPendingWho.BgColor = "#A4DB90"
        End If

        If lblPendingWhen1.Text.Trim.ToUpper <> lblPendingWhen2.Text.ToUpper.Trim Then
            trPendingWhen.BgColor = "#A4DB90"
        End If

        If lblPendingWhy1.Text.Trim.ToUpper <> lblPendingWhy2.Text.ToUpper.Trim Then
            trPendingWhy.BgColor = "#A4DB90"
        End If

        If lblTenure1.Text.Trim.ToUpper <> lblTenure2.Text.ToUpper.Trim Then
            trTenure.BgColor = "#A4DB90"
        End If

        If lblAccess1.Text.Trim.ToUpper <> lblAccess2.Text.ToUpper.Trim Then
            trAccess.BgColor = "#A4DB90"
        End If

        If lblCondition1.Text.Trim.ToUpper <> lblCondition2.Text.ToUpper.Trim Then
            trCondition.BgColor = "#A4DB90"
        End If

        If lblFacing1.Text.Trim.ToUpper <> lblFacing2.Text.ToUpper.Trim Then
            trFacing.BgColor = "#A4DB90"
        End If

        If lblZoning1.Text.Trim.ToUpper <> lblZoning2.Text.ToUpper.Trim Then
            trZoning.BgColor = "#A4DB90"
        End If

        If lblRoom1.Text.Trim.ToUpper <> lblRoom2.Text.ToUpper.Trim Then
            trRoom.BgColor = "#A4DB90"
        End If

        If lblBathroom1.Text.Trim.ToUpper <> lblBathroom2.Text.ToUpper.Trim Then
            trBathroom.BgColor = "#A4DB90"
        End If

        If lblBestbuy1.Text.Trim.ToUpper <> lblBestbuy2.Text.ToUpper.Trim Then
            trBestBuy.BgColor = "#A4DB90"
        End If

        If lblExclusive1.Text.Trim.ToUpper <> lblExclusive2.Text.ToUpper.Trim Then
            trExclusiveStatus.BgColor = "#A4DB90"
        End If

        If lblExclusiveEndDate1.Text.Trim.ToUpper <> lblExclusiveEndDate2.Text.ToUpper.Trim Then
            trExclusiveEndDate.BgColor = "#A4DB90"
        End If

        If lblExclusiveWhen1.Text.Trim.ToUpper <> lblExclusiveWhen2.Text.ToUpper.Trim Then
            trExclusiveWhen.BgColor = "#A4DB90"
        End If

        If lblExclusiveWho1.Text.Trim.ToUpper <> lblExclusiveWho2.Text.ToUpper.Trim Then
            trExclusiveWho.BgColor = "#A4DB90"
        End If

        If lblAuthorizeSaleRent1.Text.Trim.ToUpper <> lblAuthorizeSaleRent2.Text.ToUpper.Trim Then
            trAuthorizeSaleRent.BgColor = "#A4DB90"
        End If

        If lblRemark1.Text.Trim.ToUpper <> lblRemark2.Text.ToUpper.Trim Then
            trRemark.BgColor = "#A4DB90"
        End If

        If lblPropertyDescription1.Text.Trim.ToUpper <> lblPropertyDescription2.Text.ToUpper.Trim Then
            trPropertyDescription.BgColor = "#A4DB90"
        End If

        If lblSR1.Text.Trim.ToUpper <> lblSR2.Text.ToUpper.Trim Then
            trSR.BgColor = "#A4DB90"
        End If

        If lblSRSales1.Text.Trim.ToUpper <> lblSRSales2.Text.ToUpper.Trim Then
            trSRSales.BgColor = "#A4DB90"
        End If

        If lblSRSalesPFS1.Text.Trim.ToUpper <> lblSRSalesPFS2.Text.ToUpper.Trim Then
            trSRSalesPSF.BgColor = "#A4DB90"
        End If

        If lblSRAsk1.Text.Trim.ToUpper <> lblSRAsk2.Text.ToUpper.Trim Then
            trSRAsk.BgColor = "#A4DB90"
        End If

        If lblSRAskPFS1.Text.Trim.ToUpper <> lblSRAskPFS2.Text.ToUpper.Trim Then
            trSRAskPFT.BgColor = "#A4DB90"
        End If

        If lblSRDateCreated1.Text.Trim.ToUpper <> lblSRDateCreated2.Text.ToUpper.Trim Then
            trSRDateCreated.BgColor = "#A4DB90"
        End If

        If lblSC1.Text.Trim.ToUpper <> lblSC2.Text.ToUpper.Trim Then
            trSC.BgColor = "#A4DB90"
        End If

        If lblSCSales1.Text.Trim.ToUpper <> lblSCSales2.Text.ToUpper.Trim Then
            trSCSales.BgColor = "#A4DB90"
        End If

        If lblSCSalesPFS1.Text.Trim.ToUpper <> lblSCSalesPFS2.Text.ToUpper.Trim Then
            trSCSalesPFS.BgColor = "#A4DB90"
        End If

        If lblSCAsk1.Text.Trim.ToUpper <> lblSCAsk2.Text.ToUpper.Trim Then
            trSCAsk.BgColor = "#A4DB90"
        End If

        If lblSCAskPFS1.Text.Trim.ToUpper <> lblSCAskPFS2.Text.ToUpper.Trim Then
            trSCAskPFS.BgColor = "#A4DB90"
        End If

        If lblSCDateCreated1.Text.Trim.ToUpper <> lblSCDateCreated2.Text.ToUpper.Trim Then
            trSCDateCreated.BgColor = "#A4DB90"
        End If

        If lblSL1.Text.Trim.ToUpper <> lblSL2.Text.ToUpper.Trim Then
            trSL.BgColor = "#A4DB90"
        End If

        If lblSLSales1.Text.Trim.ToUpper <> lblSLSales2.Text.ToUpper.Trim Then
            trSLSales.BgColor = "#A4DB90"
        End If

        If lblSLSalesPFS1.Text.Trim.ToUpper <> lblSLSalesPFS2.Text.ToUpper.Trim Then
            trSLSalesPFS.BgColor = "#A4DB90"
        End If

        If lblSLAsk1.Text.Trim.ToUpper <> lblSLAsk2.Text.ToUpper.Trim Then
            trSLAsk.BgColor = "#A4DB90"
        End If

        If lblSLAskPFS1.Text.Trim.ToUpper <> lblSLAskPFS2.Text.ToUpper.Trim Then
            trSLAskPFS.BgColor = "#A4DB90"
        End If

        If lblSLDateCreated1.Text.Trim.ToUpper <> lblSLDateCreated2.Text.ToUpper.Trim Then
            trSLDateCreated.BgColor = "#A4DB90"
        End If

        If lblSI1.Text.Trim.ToUpper <> lblSI2.Text.ToUpper.Trim Then
            trSI.BgColor = "#A4DB90"
        End If

        If lblSISales1.Text.Trim.ToUpper <> lblSISales2.Text.ToUpper.Trim Then
            trSISales.BgColor = "#A4DB90"
        End If

        If lblSISalesPFS1.Text.Trim.ToUpper <> lblSISalesPFS2.Text.ToUpper.Trim Then
            trSISalesPFS.BgColor = "#A4DB90"
        End If

        If lblSIAsk1.Text.Trim.ToUpper <> lblSIAsk2.Text.ToUpper.Trim Then
            trSIAsk.BgColor = "#A4DB90"
        End If

        If lblSIAskPFS1.Text.Trim.ToUpper <> lblSIAskPFS2.Text.ToUpper.Trim Then
            trSIAskPFS.BgColor = "#A4DB90"
        End If

        If lblSIDateCreated1.Text.Trim.ToUpper <> lblSIDateCreated2.Text.ToUpper.Trim Then
            trSIDateCreated.BgColor = "#A4DB90"
        End If

        If lblRR1.Text.Trim.ToUpper <> lblRR2.Text.ToUpper.Trim Then
            trRR.BgColor = "#A4DB90"
        End If

        If lblRRSales1.Text.Trim.ToUpper <> lblRRSales2.Text.ToUpper.Trim Then
            trRRSales.BgColor = "#A4DB90"
        End If

        If lblRRSalesPFS1.Text.Trim.ToUpper <> lblRRSalesPFS2.Text.ToUpper.Trim Then
            trRRSalesPFS.BgColor = "#A4DB90"
        End If

        If lblRRAsk1.Text.Trim.ToUpper <> lblRRAsk2.Text.ToUpper.Trim Then
            trRRAsk.BgColor = "#A4DB90"
        End If

        If lblRRAskPFS1.Text.Trim.ToUpper <> lblRRAskPFS2.Text.ToUpper.Trim Then
            trRRAskPFS.BgColor = "#A4DB90"
        End If

        If lblRRDateCreated1.Text.Trim.ToUpper <> lblRRDateCreated2.Text.ToUpper.Trim Then
            trRRDateCreated.BgColor = "#A4DB90"
        End If

        If lblRC1.Text.Trim.ToUpper <> lblRC2.Text.ToUpper.Trim Then
            trRC.BgColor = "#A4DB90"
        End If

        If lblRCSales1.Text.Trim.ToUpper <> lblRCSales2.Text.ToUpper.Trim Then
            trRCSales.BgColor = "#A4DB90"
        End If

        If lblRCSalesPFS1.Text.Trim.ToUpper <> lblRCSalesPFS2.Text.ToUpper.Trim Then
            trRCSalesPFS.BgColor = "#A4DB90"
        End If

        If lblRCAsk1.Text.Trim.ToUpper <> lblRCAsk2.Text.ToUpper.Trim Then
            trRCAsk.BgColor = "#A4DB90"
        End If

        If lblRCAskPFS1.Text.Trim.ToUpper <> lblRCAskPFS2.Text.ToUpper.Trim Then
            trRCAskPFS.BgColor = "#A4DB90"
        End If

        If lblRCDateCreated1.Text.Trim.ToUpper <> lblRCDateCreated2.Text.ToUpper.Trim Then
            trRCDateCreated.BgColor = "#A4DB90"
        End If

        If lblRL1.Text.Trim.ToUpper <> lblRL2.Text.ToUpper.Trim Then
            trRL.BgColor = "#A4DB90"
        End If

        If lblRLSales1.Text.Trim.ToUpper <> lblRLSales2.Text.ToUpper.Trim Then
            trRLSales.BgColor = "#A4DB90"
        End If

        If lblRLSalesPFS1.Text.Trim.ToUpper <> lblRLSalesPFS2.Text.ToUpper.Trim Then
            trRLSalesPFS.BgColor = "#A4DB90"
        End If

        If lblRLAsk1.Text.Trim.ToUpper <> lblRLAsk2.Text.ToUpper.Trim Then
            trRLAsk.BgColor = "#A4DB90"
        End If

        If lblRLAskPFS1.Text.Trim.ToUpper <> lblRLAskPFS2.Text.ToUpper.Trim Then
            trRLAskPFS.BgColor = "#A4DB90"
        End If

        If lblRLDateCreated1.Text.Trim.ToUpper <> lblRLDateCreated2.Text.ToUpper.Trim Then
            trRLDateCreated.BgColor = "#A4DB90"
        End If

        If lblRI1.Text.Trim.ToUpper <> lblRI2.Text.ToUpper.Trim Then
            trRI.BgColor = "#A4DB90"
        End If

        If lblRISales1.Text.Trim.ToUpper <> lblRISales2.Text.ToUpper.Trim Then
            trRISales.BgColor = "#A4DB90"
        End If

        If lblRISalesPFS1.Text.Trim.ToUpper <> lblRISalesPFS2.Text.ToUpper.Trim Then
            trRISalesPFS.BgColor = "#A4DB90"
        End If

        If lblRIAsk1.Text.Trim.ToUpper <> lblRIAsk2.Text.ToUpper.Trim Then
            trRIAsk.BgColor = "#A4DB90"
        End If

        If lblRIAskPFS1.Text.Trim.ToUpper <> lblRIAskPFS2.Text.ToUpper.Trim Then
            trRIAskPFS.BgColor = "#A4DB90"
        End If

        If lblRIDateCreated1.Text.Trim.ToUpper <> lblRIDateCreated2.Text.ToUpper.Trim Then
            trRIDateCreated.BgColor = "#A4DB90"
        End If

        If lblLister1.Text.Trim.ToUpper <> lblLister2.Text.ToUpper.Trim Then
            trLister.BgColor = "#A4DB90"
        End If

        If lblRLister1.Text.Trim.ToUpper <> lblRLister2.Text.ToUpper.Trim Then
            trRLister.BgColor = "#A4DB90"
        End If

        'Industrial Information
        If lblProduction1.Text.Trim.ToUpper <> lblProduction2.Text.Trim.ToUpper Then
            trProduction.BgColor = "#A4DB90"
        End If

        If lblAdmin1.Text.Trim.ToUpper <> lblAdmin2.Text.Trim.ToUpper Then
            trAdmin.BgColor = "#A4DB90"
        End If

        If lblProduction1.Text.Trim.ToUpper <> lblProduction2.Text.Trim.ToUpper Then
            trProduction.BgColor = "#A4DB90"
        End If

        If lblFloorLoad1.Text.Trim.ToUpper <> lblFloorLoad2.Text.Trim.ToUpper Then
            trFloorLoad.BgColor = "#A4DB90"
        End If

        If lblSecMK1.Text.Trim.ToUpper <> lblSecMK2.Text.Trim.ToUpper Then
            trSECMK.BgColor = "#A4DB90"
        End If

        If lblCeiling1.Text.Trim.ToUpper <> lblCeiling2.Text.Trim.ToUpper Then
            trCeiling.BgColor = "#A4DB90"
        End If

        If lblTerrain1.Text.Trim.ToUpper <> lblTerrain2.Text.Trim.ToUpper Then
            trTerrain.BgColor = "#A4DB90"
        End If

        If lblDistrict1.Text.Trim.ToUpper <> lblDistrict2.Text.Trim.ToUpper Then
            trDistrict.BgColor = "#A4DB90"
        End If

        If lblLot1.Text.Trim.ToUpper <> lblLot2.Text.Trim.ToUpper Then
            trLot.BgColor = "#A4DB90"
        End If

        If lblPhase1.Text.Trim.ToUpper <> lblPhase2.Text.Trim.ToUpper Then
            trPhase.BgColor = "#A4DB90"
        End If

        If lblFurnished1.Text.Trim.ToUpper <> lblFurnished2.Text.Trim.ToUpper Then
            trFurnised.BgColor = "#A4DB90"
        End If

        If lblFurnishedRemark1.Text.Trim.ToUpper <> lblFurnishedRemark2.Text.Trim.ToUpper Then
            trFurnisedRemark.BgColor = "#A4DB90"
        End If

        If lblRenovated1.Text.Trim.ToUpper <> lblRenovated2.Text.Trim.ToUpper Then
            trRenovated.BgColor = "#A4DB90"
        End If

        If lblRenovatedRemark1.Text.Trim.ToUpper <> lblRenovatedRemark2.Text.Trim.ToUpper Then
            trRenovatedRemark.BgColor = "#A4DB90"
        End If

        If lblDeveloper1.Text.Trim.ToUpper <> lblDeveloper2.Text.Trim.ToUpper Then
            trDeveloper.BgColor = "#A4DB90"
        End If

        'Landlord Information
        If lblLandlordName1.Text.Trim.ToUpper <> lblLandlordName2.Text.Trim.ToUpper Then
            trLandLordName.BgColor = "#A4DB90"
        End If

        If lblLandlordMobile1.Text.Trim.ToUpper <> lblLandlordMobile2.Text.Trim.ToUpper Then
            trLandlordMobile.BgColor = "#A4DB90"
        End If

        If lblLandlordPhone1.Text.Trim.ToUpper <> lblLandlordPhone2.Text.Trim.ToUpper Then
            trLandlordPhone.BgColor = "#A4DB90"
        End If

        If lblLandlordEmail1.Text.Trim.ToUpper <> lblLandlordEmail2.Text.Trim.ToUpper Then
            trLandlordEmail.BgColor = "#A4DB90"
        End If

        If lblLandlordFax1.Text.Trim.ToUpper <> lblLandlordFax2.Text.Trim.ToUpper Then
            trLandlordFax.BgColor = "#A4DB90"
        End If

        If lblLandlordAddress1.Text.Trim.ToUpper <> lblLandlordAddress2.Text.Trim.ToUpper Then
            trLandlordAddress.BgColor = "#A4DB90"
        End If

        If lblLandlordReferToLister1.Text.Trim.ToUpper <> lblLandlordReferToLister2.Text.Trim.ToUpper Then
            trLandLordReferLister.BgColor = "#A4DB90"
        End If

        'Owner Information
        If lblOwnerName1.Text.Trim.ToUpper <> lblOwnerName2.Text.Trim.ToUpper Then
            trOwnerName.BgColor = "#A4DB90"
        End If

        If lblOwnerMobile1.Text.Trim.ToUpper <> lblOwnerMobile2.Text.Trim.ToUpper Then
            trOwnerMobile.BgColor = "#A4DB90"
        End If

        If lblOwnerPhone1.Text.Trim.ToUpper <> lblOwnerPhone2.Text.Trim.ToUpper Then
            trOwnerPhone.BgColor = "#A4DB90"
        End If

        If lblOwnerEmail1.Text.Trim.ToUpper <> lblOwnerEmail2.Text.Trim.ToUpper Then
            trOwnerEmail.BgColor = "#A4DB90"
        End If

        If lblOwnerFax1.Text.Trim.ToUpper <> lblOwnerFax2.Text.Trim.ToUpper Then
            trOwnerFax.BgColor = "#A4DB90"
        End If

        If lblOwnerAddress1.Text.Trim.ToUpper <> lblOwnerAddress2.Text.Trim.ToUpper Then
            trOwnerAddress.BgColor = "#A4DB90"
        End If

        If lblOwnerReferToLister1.Text.Trim.ToUpper <> lblOwnerReferToLister2.Text.Trim.ToUpper Then
            trOwnerReferToLister.BgColor = "#A4DB90"
        End If

        'Property Status
        If lblSStatus1.Text.Trim.ToUpper <> lblSStatus2.Text.Trim.ToUpper Then
            trSalesStatus.BgColor = "#A4DB90"
        End If

        If lblRStatus1.Text.Trim.ToUpper <> lblRStatus2.Text.Trim.ToUpper Then
            trRentStatus.BgColor = "#A4DB90"
        End If

        If lblCPPlanNo1.Text.Trim.ToUpper <> lblCPPlanNo2.Text.Trim.ToUpper Then
            trCPPlanNo.BgColor = "#A4DB90"
        End If

        If lblFloor1.Text.Trim.ToUpper <> lblFloor2.Text.Trim.ToUpper Then
            trFloor.BgColor = "#A4DB90"
        End If

        If lblCompanyName1.Text.Trim.ToUpper <> lblCompanyName2.Text.Trim.ToUpper Then
            trCompanyName.BgColor = "#A4DB90"
        End If

        If lblViewContat1.Text.Trim.ToUpper <> lblViewContact2.Text.Trim.ToUpper Then
            trViewContact.BgColor = "#A4DB90"
        End If

        If lblOtherContact1.Text.Trim.ToUpper <> lblOtherContact2.Text.Trim.ToUpper Then
            trOtherContact.BgColor = "#A4DB90"
        End If

        If lblCommissionRemark1.Text.Trim.ToUpper <> lblCommissionRemark2.Text.Trim.ToUpper Then
            trCommissionRemark.BgColor = "#A4DB90"
        End If

        If lblSaleView1.Text.Trim.ToUpper <> lblSaleView2.Text.Trim.ToUpper Then
            trSaleView.BgColor = "#A4DB90"
        End If
        If lblRentView1.Text.Trim.ToUpper <> lblRentView2.Text.Trim.ToUpper Then
            trRentView.BgColor = "#A4DB90"
        End If
        If lblSaleRemark1.Text.Trim.ToUpper <> lblSaleRemark2.Text.Trim.ToUpper Then
            trSaleRemark.BgColor = "#A4DB90"
        End If
        If lblRentRemark1.Text.Trim.ToUpper <> lblRentRemark2.Text.Trim.ToUpper Then
            trRentRemark.BgColor = "#A4DB90"
        End If
        If lblLatitude1.Text.Trim.ToUpper <> lblLatitude2.Text.Trim.ToUpper Then
            trLatitude.BgColor = "#A4DB90"
        End If
        If lblLongitude1.Text.Trim.ToUpper <> lblLongitude2.Text.Trim.ToUpper Then
            trLongitude.BgColor = "#A4DB90"
        End If
        If lblSaleGST1.Text.Trim.ToUpper <> lblSaleGST2.Text.Trim.ToUpper Then
            trSaleGST.BgColor = "#A4DB90"
        End If
        If lblRentGST1.Text.Trim.ToUpper <> lblRentGST2.Text.Trim.ToUpper Then
            trRentGST.BgColor = "#A4DB90"
        End If
        If lblUpdateWho1.Text.Trim.ToUpper <> lblUpdateWho2.Text.Trim.ToUpper Then
            trUpdateWho.BgColor = "#A4DB90"
        End If

    End Sub

    Protected Sub btnBack_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBack.Click
        If Session("Back") Is Nothing Then
            Response.Redirect("propertylist.aspx")
        Else
            Dim strBack As String = Session("Back").ToString
            Dim arr() As String = strBack.Split("ڡ")
            Response.Redirect(arr(0).ToString)
        End If
    End Sub
End Class
